home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00001Series_51.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  468 b   |  19 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "5" into field "whmodnum"
  4.   put "2" into field "bemodnum"
  5.   if field "diamodnum" contains "3" then
  6.     put "3" into field "bemodnum"
  7.   end if
  8.   if field "diamodnum" contains "4" then
  9.     put "3" into field "bemodnum"
  10.   end if
  11.   if field "diamodnum" contains "5" then
  12.     put "3" into field "bemodnum"
  13.   end if
  14.   put EMPTY into field "comodnum"
  15.   put EMPTY into field "whexmodnum"
  16.   puppetTransition(47, 1, 8)
  17.   VBSEARCH()
  18. end
  19.